VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} Cal_Form2 
   Caption         =   "Port1-Short"
   ClientHeight    =   5220
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7515
   OleObjectBlob   =   "Cal_Form2.frx":0000
   StartUpPosition =   2  'CenterScreen
End
Attribute VB_Name = "Cal_Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub Cmd_Cal2_Click()
        
        temp = Cal.Cal_Step_2()
        Cmd_Cal2.BackColor = vbGreen
        dmy = SCPI.IEEE4882.OPC
        'next button get focus
        CommandButton2.SetFocus
          
End Sub

Private Sub CommandButton2_Click()
Cal_Form2.Hide
'Unload Cal_Form2
Cal_Form3.Cmd_Cal3.SetFocus
Cal_Form3.Label3.Caption = "Calibrating: " & stateName(StateNum - pos)
Cal_Form3.Show

End Sub

Private Sub CommandButton3_Click()
Cal_Form2.Hide
'Unload Cal_Form2
Cal_Form1.Show
End Sub

Private Sub UserForm_Initialize()
'Label2.Caption = "The calibrating state is :" & StateName(StateNum - pos)
End Sub
